001 PDE.-V3N 

NAM PDS-V3N 

OPT O..NOG 

* PROGRAMMED BY ERIC JAMESON 

* 

' - * 

I * COPYRIGHT 1976 SPHERE CORPORATION 

I * 340 N. 4TH Eft. s NORTH SfitLT LAKE.- UTRH S4054 

Z * 

} * 

4 * 

5 * SPHERE RESERVES ALL RIGHTS FOR THE REPRODUCTION.. 

6 * DISTRIBUTION RND USE OF THE PDS SOFTWARE. 

7 * NO COPIES MAY BE MADE OR DISTRIBUTED HITHOUT THE 
3 * WRITTEN PERMISSION OF SPHERE CORP. 

9 * 

"o * 

'1 * 

>2 * 

: ; S * THE PROGRAM DEVELOPMENT SYSTEM <PDS V3N> IS R SET OF 

24 * PROGRAMS RDSIDING ON ERRSRBLE PROGRAMMABLE READ ONLY 

?5 * MEMORY NHICH ALLOW EVEN THE SMALLEST USER TO USE HIS 

16 * SPHERE SYSTEM AS A COMPLETE COMPUTER SYSTEM FOR THE 

27 * DEVELOPMENT OF COMPUTER FROGRANS. 

28 * TOWARD THIS END.. THE 4 FDS EPROMS CONTAIN A CURSOR 

29 * BASED EDITOR, A MINI-ASSEMBLER, AND THE SPHERE DEBUGGING 

30 * AID <SDA), AS WELL AS A SET OF UTILITY ROUTINES TO CO 16 

31 * BIT MULTIPLY AND DIVIDE.. ASCI I -TO-BINARY.. AND 
'32 * BINARY-TO-ASCII ROUTINES. 

133 * : 

»24 * 

135 * 

136 * THE PDS-V3N PROM SET HAS WRITTEN IN ORDER TO RUN THE 

137 * NEW KEYBOARD. CHANGES HEF.E MADE IN THE EDITOR AND THE 
Z38 * DEBUGGER. AS THE NEW PROMS ARE A GREAT IMPROVEMENT OVER 
939 * THE V3A PRONN SET, A VERSION KNOWN AS PL>S-V3D UPS tn : ,DE 

040 * UCULD RUN ON THE OLD KEYBOARDS. THE ONLY DIFFERENCE 

041 * BETWEEN THE V3D AND THE V3N PFROMS ARE THAT THE PI A 

042 '* ADDRESS IS CHANGED FROM F04Q ON V3N TO FC'OO ON V3D. 

043 * CHANGES MERE ALSO MADE IN THE DEBUGGER AND THE 

'044 * EDITOR. THE EDITOR CHANGES HERE THAT INSERT AND DELETE 

1045 * RRE NOW RT THE TOP OF THE PAGE RND THAT THERE IS A REED IT 

>A46 * COMMAND IN THE EXEC (CTRL R> TO RLLOU RE-ED ITT NO. THE 

17 * ENTRY TO THE DEBUGGER FROM THE BREAKPOINT INSTRUCTION 
1048 * HAS BEEN CHANGED SO THAT THE RETURN ADDRESS FOR THE 
J049 * BREAKPOINT IS NOW CALCULATED UHEN THE BREAKPOINT IS 
3050 * ENCOUNTERED AND GOES TO THE DEBUGGER. IN ADDITION 
9051 * THERE ARE 2 NEW INSTRUCTIONS- TJ FOR DOING A JSR TO 

0052 * ft ROUTINE AND IX TO EXIT BACK TO THE EXEC. 

0053 * 



V*' 



882 



PDS-V3N 



J855 

3856 

3857 

8658 

0859 

8866 

8861 

6862 

8663 

)0064 

18865 

W666 

W867 

10668 

16869 

10070 

38871 
38072 
80873 
88874 
60675 
60676 
80677 

el :s 

86886 
68681 
666S2 
68683 
60684 
60685 
6Q886 
08687 
63688 
66689 
66090 
66891 



6666 
6662 
6664 
6684 
6665 
6666 
6666 
8607 

0008 

068R 

066C 

608E 

6811 

6614 

6816 

881FI 

66 1C 

661E 

6626 

6622 

6624 

6626 

662R 

662C 

662E 

6636 

8632 

6835 

6040 

E61F 
E1E6 
E1FF 
F646 



* 

TMP EQU 

TMP1 EQU 
RRB EQU 

RR3 EQU 

RR2 EQU 

RRR EQU 

RR1 EQU 

RRO EQU 

PIG IT EQU 
OUTEND EQU 
BUFRDR EQU 
BUFENO EQU 
OUTBUF EQU 
SRCRDR EQU 
DSTRDR EQU 
ENDMEM EQU 
C5RPTR EQU 
BUFPTR EQU 
BUFFLO EQU 
BUFFHI EQU 
SCNPTR EQU 
SRCRSM EQU 
ONDVRL EQU 
SYMVRL EQU 
BRKSRV EQU 
BRKRDR' EQU 
EDIT EQU 
IOBUFF EQU 
PCVRL EQU 

FP.STLN EQU 
LRSTLN EQU 
LR5TCH EQU 
KBDPIR EQU 
*KEYBQRRD PIR 



MEMORY MRP 



$88 

$62 

$64 

$64 

$65 

$66 

$86 

$87 

$68 

$6R 

$6C 

$8E 

$11- 

$14 

$16 

$1R 

$1C 

$1E 

$26 

$22 

$24 

$26 

$2R 

$2C 

$2E 

$38 

$32 

$35 

$46 

$E61F 
SE1E6 
$E1FF 
$F848 
RDDRESS 



16 BIT RCC. PSEUDO REG B. 
-HI BYTE OF RRB. 
-LQ BYTE OF RRB. 
16 BIY RRITH PSEUDN REG R. 
-HI BYTE OF RRR. 
-LQ BYTE OF RRR. ' 
BYTE USED BY R5CBIN FOR TNP. 
END OF OUTPUT BUFFER TEXT. 
STRRT OF I/O BUFFER <PTR> 
PTR. TO END OF I/O BUFFR. 
STRRT OF OUTPUT BUFFER. 
SOURCE FOR TEST MOVES. 
DEST. RDDR. FOR TEXT MOVE. 
LRST RDDRES OF RERL MEMORY. 
PTR TO CURSER ON SCREEN. 
TEMP PTR USED BY OUTSTR. 
PTR TO END OF LOW EDIT TXT. 
PTR TO STRRT OF HI TEXT. 
PTR. TO BUFFRD TXT STRRT. 
PTR TO RSSMBLR SOURCE CODE. 
HRS RSSMBLR OPERND VRLUE. 
VRLUE PUT IN RSSM. SYMTBL. 
TEMP SRVE FOR BR KPT DRTR. 
RDDDRESS OF BRERKPQINT. 
8 IF EDITOR IS NOT RUNNING. 
1-0 BUFFER FOR DEBUGGER. 
PROGRRM COUNT ER_ FOR RSSN. 

RIGHTMOST CHRP OF LINE ONE. 
LEFT SIDE OF BOTTOM OF CRT. 
LRST CHRR ON CRT DISPLAY. , 
RDDRESS OF PIR FOR KBD/2. 
FOR OLD KEYBORRD (KBD/1R)- IS F6Q6. 



66093 

fltf&CIA. 

kfu895 



FE71 

mt 



INPCHR 

Q.E£UQ 



EQU 

EQU 



$FE7l INPUTS R C'HRRRCTER. 

$FE$4 DEBUGGER ROUTINE. 

$FF22 RSC7I Td clttf&Y ROUTINE. 



"GE 603 PDS-V3N 



26 

ec 

IF 

F041 

&FFF 

0E 

1.R 



ms? 

3098 
0699 
6166 
6161 
6102 
16163 
16164 

16165 FC66 

16166 FC.60 SE 
3616? FC63 30 
36168 FC64 OF 
00109 FC66 DF 
60116 FC68 86 
66111 FC6R B? 
60112 FC6D CE 
06113 FC10 DF 
0O114 FC12 DF 
60115 

00116 
0011? 

00118 
60119 

^-126 
121 
60122 
00123 
60124 
66125 
Q0126 
6612? 

66128 FC14 SD 21 

66129 FC16 
63136 FC18 
60131 FClft 
66132 FC1D 
60133 FC1F 
66134 FC21 
0Q135 FC24 
60136 FC26 26 @2 
66137 FC2S 
€0138 FC2R 
66139 FC2C 

8D 3F 
66141 FC36 81 
00142 FC32 26 
60143 FC34 7E 



INITIRLIZRTION 



* 

* 

* THE INITIRLIZRTION ROUTINES SET UP THE INITIRL VRLUES 

* UPON SYSTEM RESET. 
* 

* 



ORG 

01FF RESTRT LDS 

TSX 



$FC66 
#S1FF 



STX 

STX 

LDR R 

STR R 

LDX 

STX 

STX 



SETS STRCK POINTER 
MOVES STK PTR TO INDEX REG 
SETS RSSEMBLR OUTPUT PTR 
IN IT INPUT BUFFR RDDR. 
INTLZ. KEYBORRD PIR. 

KBDPIR+1 PIR CONTROL REG. RDDRESS. 

#$FFF LRST LOCRTN OF MEMORY. 

INIT END-OF-EDIT BUFFR. 
INIT END-OF-NEM RDDR. 



SRCRSM 
BUFRDR 
#$1F 



BUFEND 
ENDMEM 



* 



COMMRND LRNGURGE 



THIS EXECUTIVE RCCEPTS COMMRNDS FROM THE KEYBORRD TO 

* DETERMINE NHRT UTILITY IS TO BE RUN. INVRLID COMMRNDS 

* 14ILL SPRCE THE CURSOR DOM ONE LINE. DO NOT SPRCE OFF THE 

* BOTTOM OF THE SCREEN. 
* 

* 

EXEC 



8D 
80 
BD 
81 
26 
BD 
81 



*"=> 

tj 






81 



BSR HOME 

BSR CLERR 

BSR CR1 

JSR INPCHR 

CMP R #*61 

BNE EXEC2 

JSR RSMBLR 

CMP R *$95 

BNE EXEC3 

BSR EDITOR 
EXEC3 CMP R #S12 

BNE EXEC4 
BSR REED IT GOES TO REED IT TEXT. 

64 EXEC4 CMP R #$64 TESTS FOR COUTRL '£>''. 

E4 BNE EXEC1 SKIPS BRCK FOR R NEU COMND. 

FE64 JMP DEBUG JUMPS TO DEBUGGER. 



73 EXEC1 

FE71 

CU 

03 

FORI 

65 EXEC2 

&2 

3D 
12 
62 



CSRPTR IS HOMED. 

CLERRS SCREEN 

CRLF FOR NE'.-J LINE. 

GETS £ DISPLAYS CHR. 

TESTS IF ASSEMBLY COMMD. 

SKIPS IF OTHER COMMRND. 

JUMPS TC-RSSEM3L PRPOGRM. 

TESTS IF COUTRL 'E\ 

SKIPS IF NOT EDIT CMD. 

JUMPS TO EDIT TEXT. 

TESTS FOR R TR COMMRND. 

SKIPS IF NOT R REED IT COMND. 60140 FC2E 
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00145 

r" \46 

^14? 
0014 8 
00149 

00150 

00151 

00152 

60153 

00154 

60155 

66156 

00157 

66158 

66159 

66166 

66161 

66162 

66163 

66164 

66165 

66166 

6616? 

60168 

66169 

66176 

r 71 

b~-72 

66173 

69174 

66175 

66176 

66177 

60178 

66179 

ease 

66181 
06182 
06183 
•36184 

d01S5 

16186 

1618? 
: f-i'lS8 
?r>4 g-q 



W191 
10192 
6193 
6194 
8195 
96 
^.97 
9198 
9199 
3260 
3201 



* 
* 
* 
* 
* 



THE EDIT6R 



THE EDITOR RLLONS INPUT FROfl THE KEYBOARD INTO R 
BUFFER MEMORY. INPUT IS DISPLAYED ON THE SCREEN. NHEN 
IT IS TYPED IN, THE SCREEN- TEXT CBN THEN BE EDITED BY USE 
OF THE CURSOR. NHEN THE SCREEN IS FULL OR EDITING IS 

* FINISHED, THE DRTR IS SCROLLED OFF THE SCREEN INTO THE 

* EDIT BUFFER. NHEN TEXT IS SCROLLED OFF THE TOP OF THE 

* SCREEN, IT IS STORED FROM THE BUFFER RDDRESS FO INTER 

* <BUFRDR> TO THE LOW BUFFER POINTER (BUFFLO). BUFFLO 

* POINTS TO THE END OF TEXT * ONE <I. E. IT POINTS TO THE 

* FIRST UNUSED BYTE). NHEN IT IS SCROLLED OFF THE BOTTOM 

* OF THE SCREEN, IT IS STORED IN THE TOP OF THE EDIT SUFFER. 

* THE TEXT GOES FROM THE HIGH BUFFER POINTER <SUFFHI> TO 

* THE END OF BUFFER POINTER (BUFEND). BUFFHI POINTS TO 

* THE END OF TEXT - ONE <I. E. IT POINTS TO THE LRST UNUSED 

* BYTE IN THE BUFFER). NHEN THE TEXT IS SCROLLED UP 

* OFF THE TOP OF THE SCREEN, TEXT IS TRKEN FROM THE HIGH 

* PREP OF THE EDIT BUFFER RND DISPLRYED ON THE LRST LINE OF 

* THE SCREEN. NHEN TEXT IS SCROLLED DOWN OFF THE BOTTOM, 

* TEXT, IF RNY EXISTS, IS MOVED FROM THE LOW EDIT BUFFER 

* RRER TO THE TOP LINE OF THE SCREEN. 



* 

He 
* 

* 
* 
# 

* 
* 

* 
* 

* 

* 

* 
* 

* 

aft 
* 



CSRPTR 
SCNPTR 
BUFROR 
BUFEND 
BUFFLO 
BUFFHI 
BUFLEN 



POINTERS USED 

POSITION OF CHRRRCTERS INSERTED ON THE SCREEN. 

POSITION OF STRRT OF EDITED TEXT ON SCREEN. 

STRRT OF TEXT BUFFER IN MRIN MEMORY. 

END OF TEXT BUFFER IN MRIN MEMORY. 

END OF TEXT SCROLLED OFF TCP 0- SCREEN 

STRRT OF TEXT SCROLED 

NOT CURRENTLY USED. 



OFF BOTTOM OF SCREEN. 



EDITOR COMMRNDS 



"UP RRRON* MOVES CURSOR UP ONE LINEj CSRPTR GETS 
CSRPTR-32) CRLL NDRFLO. 

"DOUN RRROU" MOVES CURSOR DOUN ONE LINE; CSRPTR GETS 
CSRPTR+32J CRLL OVRFLO. 

"RIGHT RRRON' MOVES CURSOR ONE POSITION RIGHT; CSRPTR 
GETS CSRPTR+Ij CRLL OVRFLO. 



395 PDS-V3N 

* "LEFT RRRON" MOVES CURSOR ONE POSITION LEFT J CSRPTR 

* GETS CSRPTR-1; CRLL NDRFLO. 

* 

* "CONTROL A LEFT RRRON (ON KEYBORRD)" LEFT JUSTIFY CURSORj 

* CSRPTR GETS CSRPTR TRUNCRTED; CRLL NDRFLO FOR SCNLOC CHK. 

* 

* "PUTCHR" OUTPUTS CHRRRCTERj CSRPTR GETS 

* CSRPTR+Ij GOES TO OVRFLO. 

* 

* "ENDCHR" TERMINATION CHRR; CLERR EDIT FLRG.: 

* EXIT THE EDITOR. 
* 

* "HOME" HONES CURSOR POINTER, CSRPTR GETS EOOO; NDRFLO. 

* "CLERR" CSRPTR TO END OF THE SCREEN GETS SPRCES. 
* 

> * "CTRL I" INSERT R LINE RT THE LRST LINE ON THE SCREEN.: 

? * CRLL 0VR1 (SCROLLS UP ONE LINE) J CSRPTR GETS E1E0. 

t Iff 

? * -CTRL D" DELETE LRST LINE; SCROLL DOUN (UNDR2).: 

3 * CSRPTR GETS E1E0. 

4 * 

5 * 

6 * 

•7 ■ * 

3 * OVERFLOW CHECKS IF SCROLL UP IS NEEDED; IF IT IS, IT 

>9 * SCROLLS UP RND MOVES DRTR TO & FROM THE BUFFEERS. 

?6 *. 

?1 * OVRFLO: IF CSRPTR < E200 THEN RETURN.: IF EDIT IS ON THEN 

32 * 0VR1: BUFFLO+ GETS SCNPTR TO 'C. R. '; 

33 * OSTRDR GETS CSRPTR GETS E1EQ (LRST LINE ON SCREEN).: 

34 * IF EDIT IS ON RND BUFFHI < BUFEND THEN MOVE THE TEST 

35 * (THE STRING FROM BUFFHI TO 'C. R. ') TO THE LRST LINE. 

36 * 
;37 * 
!3S * 
!39 * 

140 * UNDERFLOW CHECKS IF SCROLL DOUN IS~VFFt€D fii& MOVES 

241 * C'RTR TO RND FROM THE BUFFERS. CURSOR HRD BEEN 

242 * MOVED OFF THE TOP OF THE SCREEN RND IS NO',1 PUT RT THE 

243 * HOME POSITION ON THE SCREEN. 

244 * 

245 * NDRFLO: IF CSRPTR > DFFF THSN RETURN <G0 TO OVRFLO).: 

246 * IF EDIT FLRG IS ON THEN MOVE LhST LINE TO BUFFHI 
'■24? * ON DOUN.: SCRLDN; CSRPTR GETS E30Q> MOVE LINE FROM 

1248 * BUFFLO TO FIRST LINE ON THE CRT. 

1249 * 

1250 * 

1251 * 



■\ 



* NOTE: DON'T SCROLL OFF SCREEN IN EXEC UNTIL RFTER 

1254 * THE EDITOR MRS BEEN RUN. 

1255 * 

3256 * NOTE: EVERY LINE MUST HRVE RC. R. ON IT. 



006 PDS-V3N 



i FC37 
? FC3R 
3 FC3C 
I 



CE £000 HONE 

OF 1C 

39 



LDX 
STX 
RTS 



3 

4 

5 

& 

? 

:S 

>-_9 

'6 

7 1 

7 2 

72 

74 

75 

76 

77 

'7S 

\79 

>81 

82 

!S3 

284 

285 

286 

287 

288 

1289 

*29Q 

1291 

1292 

3293 

9294 

0295 

0296 

0297 

329S 

'3299 

'0300 

?0S01 
>u3u2 

30303 

30304 

00305 

P*306 

IQ7 

U&308 

00389 

08310 

00311 

00312 
4Q313 



FC3D 
FC3F 
FC42 
FC43 
FC45 
FC47 
FC49 



FC4R 
FC4C 
FC4E 
FC51 
FC52 
FC54 
FC56 
FC59 
FC5B 
FC5D 
FC5F 
FC61 
FC63 
FC66 



C6 68 
CE £'200 
09 

E7 &0 
9C 1C 
26 F9 
39 



DE 
63 
CE 
89 
27 
86 
B5 
27 
DE 
86 
2R 
63 
B6 
39 



* 
CLERR 



LOR B 
LDX 

CLERR1 DEX 

5TR B 
CPX 
BNE 
RTS 

* 

* 



#$E000 LORDS HONE POSITION. 
CSRPTR STORES HOME IN CURSOR PTR. 
RETURNS TO CRLLER. 



n$68 LORDS BLRNK (C. R. ). 

#LRSTCH+1 LORDS END-OF-SCREEN PTR. 

DECREMENTS BLRNK I NG PTR. 
8,X BLRNKS LOCRTION. 

CSRPTR TESTS IF DONE. 
CLERR1 BRRNCHES BRCK IF NOT DONE. 

RETURNS. 



1C 
80 
26F0 

F6 

48 

F841 

F6 

l.C 

88 

00 

F048 



* 
* 

GETCHR LDX 
CON 
LDX 

GET1 DEX 
BEQ 
LDR R 

irF$it BIT R 

LDX 
LDR R 
BPL 
CON 
GET2 LDR R 
RTS 



GETCHR INPUTS R CHRRRCTER INTO RCC R MITHOUT 
MOVING THE CURSOR, RND BLINKS THE CURSOR. 



CSRPTR 

8,X 

#9968 

GETCHR 

#*40 

KBDPIR-f-1 

GET! 

CSRPTR 

8, X 

GET2 

8,X 

KBDPIR 



LORDS CRT CURSOR POSITION. 
COMPLIMENT (FLRSH POSITION). 
LORDS BLINK COUNT VRLUE. 
COUNT GETS COUNT-1. 
RESETS CTR NHEN TIMED OUT. 
LORDS NRSK FOR CR2 FLRG. 
TESTS IF R CHRP. TYPED IN. 
BRANCH IF CHRP NOT ENTERED. 
LORDS CURSOR POSITION. 
TESTS IF BLINKMD < SOLID). 
SKIPS IF NOT BLINKED. 
CLERRS THE CHRRRCTER. 
LORDS R NITH KEVBRD CHRP. 
RETURNS TO CRLLER. 






-«,-»•» 



Y.iL< 



FC67 
FC69 
FC68 
FC6D 
FC6F 

FC75 



FC79 
FC7B 
FC7D 
FC7F 
FCS2 
FC83 
FC85 



DE e>c 

DF 20 
DE &e 
DF 22 
SD C6 

DE 1C 
DF 24 



8D CF 
81 IB 
26 04 
7F 8832 
39 

8D OR 
20 F2 



* 

* 

EDITOR 



REED IT 

EDITRD 
EDI TIN 

* 
* 

EDRERD 
ENDCHR 



EDI 



EDITOR IS THE MRIN ENTRY POINT FOR EDITING. 



BUFFLO GETS THE 
VRLUE OF SUFROP. 
BUFFHI GETS THE 
VRLUE OF SUFEND. 
ENTRY POINT FOR 
RE-EDIT ISO TEXT. 
TURNS ON EDIT MODE. 

SETS SCNPTR TO CSRPTR. 



X GETS CSRPTR £• R GETS CHR. 

TESTS FOR RN "ESC CHRR. 

SKIPS IF NOT EDIT END. 

TURNS OFF EDIT FLRG. 

EXITS THE EDITOR. 

EDITS CHRRRCTER. 

GOES FOR NEXT CHRRRCTER. 



LDX 


BUFRDR 


STX 


BUFFLO 


LDX 


BUFE.'iD 


STX 


BUFFHI 


BSR 


HOME 


P^R 


CLERR 
EDIT 


STR R 


LDX 


CSRPTR 


STX 


SCNPTR 



BSR 
CMP 
BNE 
CLR 
RTS 
BSR 
BRR 



R 



GETCHR 
#$1B 
EDI 
EDIT 

INSERT 
EDRERD 



GE 007 P0S-V3N 



15 
316 
31? 
'318 

>319 

t320 

)321 

'1322 

3323 

3324 

3325 

3326 

632? 

0328 

0329 

O330 

16331 

10332 

W333 

J0334 

30335 

30336 

36337 

3033S 

8^39 

A W 

06341 

60342 

60343 

00344 

60345 

60346 

6634 7 

06348 

66343 

60350 

66351 

60352 

60353 

60354 

6 0355 

00356 

6635? 

66358 

60359 

0036O 

00361 

60362 

60363 

60*64 

0^ 55 

66366 

0636? 

6036S 



FCS? 
FC89 
FCSB 
FCSO 



FCSF 
FC91 
FC93 
FC95 
FC9? 
FC99 
FC9C 



FC9F 
FORI 
FCR3 
FCR5 
FOR? 



FCR9 
FCRB 



FCRO 
FCRF 
FC81 
FCB3 
FCB4 



FCB6 
FOBS 
FCBR 



81 60 
20 RC 
2E 12 
86 68 



SI 09 
20 16 
2E F2 
06 3:2 
2? 03 
BO F046 
7E F074 



81 12 

20 z:s 

2E 88 
OE ±C 
28 IF 



SO 67 
20 40 



81 1.4 

20 24 

2E 6<3 
89 

20 25 



81 IF 
20 S3 
2? 41 



* 

* 

* 
CR 



CR1 
* 

* 
INSERT 



INSRT1 



INSRT2 

* 
f 
RTCSR 



RTRRRO 
* 

* 

OELETE 

* 
LFTCSR 



FOLLOWING IS THE MRIN EOITOR EXECUTION LOOP. 



CtIP 
BLT 
BGT 
LOR 



CLER 



* 

* RLL 



CMP 
BLT 
BGT 
LOR 
BEQ 
JSR 
JMP 



CMP 
BLT 
BGT 
LOX 
BRR 



BSR 
BRR 



CMP 
BLT 

BGT 

oe>: 

BRR 



CMP 
BLT 
BEQ 



R 



#$00 
HOME 
RTCSR 
#$66 



#$69 

OELETE 

CR 

EOIT 

INSRT2 

M0VE2 

SCRLON 



#$12 

SUB32 

LFTCSR 

CSRPTR 

PUTCH1 



0VR1R 
0VR3 



#$14 

ROC'32 
CLER 



#$1F 

CLERR 

LFTJST 



TESTS FOR CRRRIRGE RETURN. 
SKIPS IF HOME CURSR COMNO. 
GOES TO NEXT COM NO TEST. 
LOROS INTERNRL C. R. VRLUE. 



TESTS 

SKIPS 

SKIPS 

TESTS 

SKIP 

MOVES 

MOVES 



FOR R CONTROL 'I'" 
TO OELETE COMMO. 
FOR NEXT TEST. 
IF EOITOR IS ON. 
TO EXIT IF 



LRST LINE 
RLL LINES 



EOITOR OFF. 
TO BUFFHI. 
OONN ONE. 



TESTS FOR RIGHT RRRON. 
SKIPS IF RN "UP RRRON". 
SKIPS IF R "LEFT RRRON". 
LOROS CURSOR POINTER. 
STORES i) INCREMENTS CSR. 



SCROLLS UP ONE LINE. 
MOVES MEN LRST SCREEN 



LINE. 



TESTS 
SKIPS 
SKIPS 
SUB. 1 
STORES 



"LEFT 

"DO I IN 



IF 
IF 

for nz:: 

FFOM C: 
CURSOR 



RRRON •'. 

RRFON". 
' TEST. 
RFTP. 
POINTER. 



TESTS FOR CTRL BRCK RRRON. ' 

GOES TO CLERR SCREEN. 

MOVES CSR TO LEFT OF SCREEN. 



OTHER CHRRRCTERS FRLL THRU TO PUTCHR. 



60S PDS-V3N 



t 

5 

6 FCBC DE l.C 

7 FCBE SI 00 
$ FCCO 27 
'9 FCC2 R7 
id FCC4 SI 

31 FCC6 27 

32 FCCS OS 

33 FCCS 20 19 



04 

99 

60 
4C 



* 
* 

* 

PUTCHR LDX 

CMP R 
BEQ 
STR R 
CNF R 
CRLF1 BEQ 
PUTCH1 INS 
BRR 



PUTCHR DISPLRYS R CHRRRCTER ON THE CRT DISFLRY RNO 
INCREMENTS THE CURSOR POINTER RS NELL RS CHECKING 
RNO HRNDLING CRRRIRGE RETURNS. 



CSRPTR LOROS OLO CSRPTR. 

U$9D TESTS FOR EXTERNRL C. R. 

CRLF1 SKIPS TO DO R C. R. L. F. 

Q, X DISPLRYS CHRP ON SCREEN. 

#S6Q TESTS FOR INTERNRL C. R. 

CRLF SKIPS FOR CR. LF. 

INCREMENTS CSRPTR. 

R002 TESTS FOR OVRFLO & UNDRFLO. 



3S6 



3SS 
"*5 
J6 



FCCB 


DE 


l.C 


SUB32 


LDX 


CSRPTR 


LORDS CURRENT CRSR POSI 


FCCO 


Co 


20 




LOR B 


#32 


LOROS LOOP COUNT. 


FCCF 


09 




SUB32R 


DEX 




DECREMENTS CSRPTR. 


FCOQ 


5R 






DEC B 


- 


DECREMENTS LOOP COUNTR. 


FC01 


2* 


FC 




BNE 


SUB32R 


SKIPS BRCK IF NOT DONE. 


FC03 


20 


06 




BRR 


RDD2 


SKIPS TO CHECK UNDRFLO. 



3392 FCD5 C6 


2:9 


RDD32 


LDR B 


#32 


0393 FCD7 OS 




RDD32R 


I NX 




3394 FCDS 5R 






DEC B 


- 


3395 FCD9 26 


FC 




BNE 


RDD32R 


0396 FCDS Or 


1C 


RDD2 


STX 


CSRPTR 



LORDS LOOP COUNTER. 
INCRE. CSRPTR IN INDEX. 
DCEREMEN'TS LOOP COUNTER. 
SKIPS D.'iCK IF NOT DONE. 
SfiVES CSRPTR. 



33398 
-3?99 
'3400 
. '401 
33-3Z 
•:3403 



FCDD 



or 

i 



NDRFLO < UNDERFLOW; CHECKS FOR THE CURSOR GOING OFF THE 
TOP OF THE SCREEN. THE IN?EX REG CONTAINS THE CURSOR 
POINTER HHEN THE ROUTINE IS ENTERED. 



EX' '~'rt 



00406 FCE4 SO 3< 



NDRFLO CPX 

Iff 

BSR 



#$E000 

INSRT1 
N0VE3 



TESTS IF CSRPTR >= DFFF. 
--SKIPS IF C SRP TR. ftp. EH TER. 
SCROLLS DOdN & rluVES LINE. 

MOVES BUFFLO TO TOP OF CRT. 



PRGE 009 P0S-V3N 



00408 

00409 

1 
0O412 
O041 J 
U0414 
00415 
0O416 
0.041? 
00418 
0O419 
O042Q 
00421 
O0422 
O0423 
00424 
00425 
0O426 
00427 
00428 
00429 

0041-0 

00431 
00432 
O0433 
00434 

60435 
0( 6 

0&r37 

O0438 
00439 
O0440 

Q0441 
00442 
00443 
00444 
00445 
00446 
00447 
06448 
00449 



FCE6 
FCE9 
FCEB 
FCED 
FCEF 
FCF1 
FCF3 
FCF5 
FCF7 
FCF9 
FCFB 



FCFO 
FCFF 
FD01 
FD03 



FD84 

FDC-6 
FD08 

f;.'OR 

FD6C 

FDOE 
FDIO 
FD12 



SC 
28 
80 
06 

Be 
sc 

27 
80 
DE 
DF 



06 10 
C4 EIQ 

07 10 
39 



06 

OE 
OF 

OE 
SO 
OF 
20 



OR 
20 
16 
24 

2:6 
20 
48 



* 
* 

* OVERFLOW CHECKS FOR SCROLLING UP (CURSOR IS OFF 

* THE BOTTOM OF THE SCREEN) j INOEX CONTAINS THE CURSOR 

* POINTER UPON ENTRY. 
* 



E208 

18 

1.7 

32 

12 
?? 

ei 

8C 
~:C 
14 



OVRFLO 



0VR3 



* 
LFTJST 



OVREXT 

* 
* 
* 

0VR1 



CPX 
BMI 
BSR 
LOR 
BEQ 
LOX 
CPX 
BEQ 
BSR 
LOX 
STX 



#$E288 

OVREXT 

0VR1 

EOIT 

OVREXT 

BUFFHI 

BUFENO 

OVREXT 

M0VE1R 

SRCROR 

BUFFHI 



TESTS RNO EXITS IF 
CURSOR ON SCREEN. 
OOES 0VR1 CHECKING. 
TESTS IF EOIT IS ON. 

IF IT IS OFF. 

HI TEXT POINTR. 



EX I TS 
LOR OS 
TESTS 
EXITS 
MOVES 



IF PTRS NOT EQLL 
IF 



NO TEXT. 
CHRS TO LRST LINE. 
RESETS NEN BUFFHI 
LOCRTION. 



0VR1R 



FOLLONING ROUTINE MOVES THE CURSER TO THE LEFT. 

LOR B CSRPTR+1 LOROS LOU BYTE OF PTR. 

RNO B #$EQ TRUNCRTES TO LEFT OF LINE. 

STR B CSRPTR-t-1 SRVES L. J. EO PTR. 

RTS RETURNS TO EOITOR. 



0VR1 OOES RCTURL SCROLLING UP. 

LOR B EOIT TESTS IF EOIT IS ON. 

BEQ 0VR1R SKIPS IF EOIT OFF 

LOX BUFFLO LCHOS TEXT PTR LOU. 

STX OSTRCR OESTINfiTION OF TEXT MOVE. 

LOX SCNPTR SOURCE FOR MOVE. 

ESR M0VE1 MOVES LI til TO BUFFFLO. 

STX BUFFLO SRVES NEli BUFFLO PTR. 

BRR SCRLUP SCROLLS SCREEN UP 1. 



00451 


*• 


vS452 


•*• 


00453 F014 80 BF 


CRLF 


00454 F016 20 E5 





FOLLONING ROUTINE MOVES THE CURSOR. 



BSR R0032 

BRR LFTJST 



LINE FEEO. 
CRRRIRGE RETURN. 
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00456 
00457 
00458 
00459 

Or- ~9 

00462 

00463 

00464 

00465 

00466 

0O467 

004 6S 

0O469 

00470 

0O471 

00472 

00473 

00474 

00475 

00476 

00477 

0047S 

0O479 

004S0 



* ^ot^/bI^Vr'e ^ NW£ FRm 0NE BUFFER flfffft T ° 



FD18 
FD1R 
FD1C 
FD1E 
FD20 
FD22 
FD23 
FD25 
FD27 
FD28 
FD2R 
FD2C 
FD2E 
FD2F 
FD31 



DE 2:4 
OF 16 
DE 2:0 
9C OC 

">-f *-•-:■ 

09 

9C fir. 
27 OS 
09 

E6 O0 
CI 60 
26 F5 
OS 

DF 20 
20 Q3 



* 
* 



HQVE3 CRLCULRTES THE SOURCE RDDRESS OF THE DRTR IN 
BUFFLO (IF IT EXISTS) FOR MOVING TO THE FIRST LINE ON 
THE CRT. MOVE 1 IS THEN ENTERED TO DO THE MOVING 



M0VE3 



NV31 



HV32 



LDX 

STX 

LDX 

CPX 

BEQ 

DEX 

CFX 

BEQ 

DEX 

LDR B 

CNF B 

BNE 

INS 

STX 

BRR 



SON FT R CSRPTR GETS EOOO <HONE> 
DSTRDR SETS MOVE RDDRESS 
BUFFLO LORDS LO BUFFR RDDR. 
BUFRDR TESTS IF STRING EXISTS 
MOVEXT EXITS IF EMPTY. 

MOVES BRCK FROM BLRNK. 
BUFRDR TESTS IF SRCRDR = BUFFRDR 
MV32 MOVES IF STRRT OF LINE. 

NEXT LONER CHRP. 
0.-X. GETS SOURCE CHRP FOR TEST. 

#*6"tf TESTS FOR "C. R. ". 
MV31 SKIPS BRCK UNTIL "C. R. " 

POINTS BRCK TO FIRST CHRP. 
BUFFLO SRVES LO RDDRESS. 
N0VE1 MOVES DRTR. 



0O4S2 

oor-i 

01K, 4 
004S5 
O0486 
O04S7 
0O488 
004S9 
00490 
J0491 
±0492 
00493 
08494 
00495 
00496 
00497 
Q-J49S 
C J 4 99 
0^5vO 

00501 

005C2 
mtSQT 

00504 



FD33 DE 14 

FD35 OS 

FD36 E6 00 

FD'S DF 14 

FD3R DE 16 

FD3C E7 00 

FD3E OS 

FDZF DF 16 

FD41 CI 60 

FD43 2,6 EE 
FD45 $9 



TOP 



MOVE! 

N0VE1 MOVES R SET OF CHRRRCTERS FROM EITHER THE 
LINE OF THE SCREEN TO BUFFLO OR FROM BUFFHI TO THE 
BOTTOM LINE OF THE SCREEN. THE SOURCE RDDRESS IS PRSSED 
IN THE INDEX REG. , THE PEST I NATION RDDRESS IN DSTRDR. 
RND THE MOVE IS TERMINRTED BY R "C. R. " IN THE LINE OF 
TEXT BEING MOVED. 



* 
* 

* 
* 

* 
+■ 
*■ 

MOVE 

M0VE1R 

H0VE1 



NOVEXT 



LDX 
INS 
LDR 
STX 

LDX 
STR 

iny. 

STX 

CMP 

BU£ 
RTS 



B 



SRCRDR 

O, X 

SRCROR 
DSTRDP 
0.X 

DSTRDR 
#$6@ 
MOVE - 



LORDS SOURCE RDDRESS INTO X E 
POINTS TO NEXT SOURCE CHRP. 
LO^S SOLRCE CH: : iRRCTEF. 
SAVES THE SOUf.CE POINTER. 
LC ./:.- DESTINATION ADDRESS 



:~s Cr 



'■EST I NAT I ON. 



'INATION Ai 



SA\_S DESTINATION PTP 
TESTS IF MOVE FINSHED (CR>. 
SKIPS BACK IF NOT DONE. 
RETURNS TO CRLLER. 
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00506 
00507 
0050S 
00509 

* 11 

00512 

0051S 

00514 

00515 

00516 

00517 

0O51 S 

00519 

00520 

00521 

0O522 

O0523 

00524 

00525 

00526 

00527 

0052S 

00529 

0053O 

0O531 



FD46 

FD49 

FD4R 

FD4B 

FD4D 

FD4E 

FD50 

FD52 

FC'54 

FD56 

FD57 

FD59 

FD5R 

FD5C 

FD5E 



CE 

5F 

37 

E6 

OS 

CI 

26 

DE 

E7 

09 

OF 

33 

CI 

26 

39 



E1E9 



09 

60 
FS 

cc 

£10 



M0VE2 SUBROUTINE 

THE M0VE2 SUBROUTINE MOVES THE LRST LINE ON THE 
SCREEN TO THE HIGH RRER OF THE BUFFER (BUFFHI) DURING 
£f;S?f, L ^!L THE rE ' NT IS TEHPORllRILY STORED ON THE STACK 
DURINU THE MOVE. THE MOVE IS TERMINRTED BY R "C R " 
THE TEXT IS STORED RT BUFFHI ON DONN 



* 
* 

* 
* 

* 

M0VE2 

MV21 



NV22 
NV23 



&0 
F6 



MOVEX 



LDX 

CLR B 

PSH B 

LDR B 

INX 

CMP B 

BNE 

LDX 

STR B 

DEX 

STX 

PUL 

CMP 

BNE 

RTS 



B 
B 



ULRSTLN X GETS RDDR OF LRST LINE. 

SETS TERMINATION FOR 
STRCK POPPING. 

0*X LORDS SOURCE CHRP. 

POINTS TO NEXT CHRP. 
1t$60 TESTS IF LINE TO "C R " 

MV21 MOVED TO STRCK. 

BUFFHI I NIT. DESTINATION. 
0/ X , STORES CHRP. 

POINTS TO NEXT LOCRTION. 
BUFFHI UPDATES BUFFER PTR. 

GETS NEXT CHRP. 
#09 TESTS IF RLL CHRS STORED. 

MV23 SKIPS BRCK IF NOT STORED 

RETURNS TO CRLLER. 



0&533 
( 34 
0U535 
©0536 
00537 
O053S 
00539 
09540 
0O541 
00542 
00543 
00544 



FD5F 
FD62 
FD64 
FD66 
FD67 
FD6R 
FD6C 
FD6E 
FD70 
FD73 



CE 

E6 
E7 
QS 
8C 
26 
DF 
DF 
BD 
39 



* 
* 

E0O9 SCRLUP LDX 
20 SCRP1 LDR 
09 STR 

INX 
E1E0 CPX 

F'6 BNE 

1C STX 

i.o STX 

FC3D JSR 

RTS 



SCROLLUP MOVES RLL LINES UP 1, & CLERRS LRST LINE. 



B 
B 



H$E009 
$29, X 
90.. X 

tfLRSTLN 

SCRP1 

CSRPTR 

DSTRDR 

CLERR 



SETS CRT HOME POSITION. 
GETS CHRP FROM NEXT LINE. 
STORES CHRP ON PREV. LINE. 
POINTS TO NEXT LINE. 
TESTS' IF MOVE DONE. 
GOES BRCK IF NOT DONE. 
SETS CSRPTR TO LRST LINE. 



INIT DEST FOR NEXT 
CLERRS LRST LINE. 
EXITS. 



MO 



l.'C 



1GE 


012 


PDS-V3N 


J546 








1547 








543 








0549 


FD74 


CE 


E1DF 


9550 


FD77 


E6 


00 


0551 


FD79 


E7 


20 


0552 


FD7B 


DF 


1C 


0553 


FD7D 


09 




0554 


FD7E 


SC 


DFFF 


0555 


FDS1 


26 


F4 


'0556 


FDS3 


C6 


60 


1055? 


FDS5 


0S 




W55S 


FDS6 


E7 


£10 


W559 


FDSS 


SC 


E01F 


'-056O 


FDSB 


26 


FS 


)0561 


FDSO 


19 





* SCRLDONN MOVES 

* CLEARS THE TOP LINE 



SCRLDN 
SCRD1 



SCRD2 



LDX 

LDR 

STR 

STX 

DEX 

CPX 

BNE 

LDR 

I NX 

STFI 

CPX 

BNE 

RTS 



B 
B 



B 



HLRSTLN- 
0, X 
$20> X 
CSRPTR 

#$DFFF 

SCRD1 

#$60 

e,x 

UFRSTLN 
5CRD2 



RLL LINES DONN ONE RND 
ON THE SCREEN. 

-1 INITIALIZES THE POINTER. 
LORDS DRTR TO BE MOVED. 
MOVES DRTR DONN ONE LINE. 
SAVES CURSOR. 
POINTS TO NEXT BYTE. 
TEST* IF MOVE FINISHED. 
SKIPS BRCK IF NOT PONE 
LORDS BLRNK TO CLEAR LINE. 
POINTS TO NEXT CHRRRCTER. 
CLERRS BYTE ON LINE 1. 
TESTS IF LINE 1 CLEARED. 
SKIPS BRCK IF NOT CLERRED. 
RETURNS. 



30563 

30564 

90565 

30566 

0O567 

6*563 

k( 59 

Ofo70 

0O571 

00572 

00573 

00574 

00575 

00576 

00577 

0057 S 



FDSE DE 


11 


FD90 R6 


m 


FD92 DF 


IE 


FD94 BD 


FCBC 


FD9? DE 


IE 


FD99 9C 


OR 


FD9B 27 


03 


FD9D OS 




FD9E 20 


FO 


FDRO 39 





* 

OUTSTR 
OUT! 



0UT2 
* 

* 



miTSTRING PRINTS OUT THE STRING BETWEEN THE 
WTBUF WINTER RND THE BUFEND POINTER. 



LDX 

LDR 

STX 

JSR 

LDX 

CPX 

BEQ 

I NX 

BRR 

RTS 



R 



OUTBUF 

0, X 

BUFPTR 

PUTCHR 

BUFPTR 

OUTEND 

OUT 2 

0UT1 



BUFPTR GETS STRRT OF TEXT. 
LORDS CHRP TO BE PUT OUT. 
SRVES SOURCE POINTER. 
PRINTS CHRRRCTER. 
RESTORES POINTER. 
TESTS FOR END-OF-TEXT. 
Ex'lTS IF END OF TEXT. 
INCRE.- PTR TO NEXT CHRR 
GOES BRCK FOR NEXT L-HRR. 
EXITS ROUTINE. 



END OF EDITOR FROGRRM. 
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'THE MINIASSEMBLER 



4 
>5 
?6 
97 
9S 
99 

m 

$02 

603 

1604 

)665 

*6Q6 

SQ7 

Q603 

I06Q9 

W&1Q 

30611 

00612 

00613 

00614 

60615 

00616 

00617 

0061S 

0O619 

00620 

00621 

00622 
00623 
03624 
69*25 
0O626 
00627 
0O62S 



THE MINI-ASSEMBLER IS R FIXED-FIELD ONE INSTRUCTION 
PER LINE 2 PP.S5 ASSEMBLER. THE NINI-ASSSENBLER FORMAT 
IS DESCRIBED ON PftGES 9-2 AND 9-3 OF THE SFHERE 
OPERATORS REFERENCE MANUAL. . 

THE TNO PRSSES PRE REQUIRED TO FORM THE LRBEL 
ADDRESSES. THE SECOND PASS EQUATES THE ADDRESS FOR 
LABELS REFRENCED BEFORE THEY ARE DEFINED IN THE PROGRAM. 



* 
* 
* 
* 

* 

* 

■*- 

* 

* 

* 
* 
* 

* ALGORITHM: 
* 

*ASNBLR: 
*RSI11A: 

* R GETS CHAR IN X6 (OPERAND TYPE); X GETS X+7j 

* IF CHAR X6 IS A "0" THEN ONDVAL GETS VALUE FROM SYMBOL 

* TABLE ELSE ONDVRL GETS VALUE FROM ASCBIN CONVERSION 



ON ENTRY: 

SRCASM = 
BUFFLO = 



ADDRESS OF SOURCE TEXT TO BE ASSEMBLED. 
ADDRESSED OF OBJECT CODE PRODUCED. 



ON EXIT: 

FCV AL (PROGRAM COUNTER VALUE) = 

THE ASSEMBLED OBJECT PROGRAM. 



LAST LOCATION OF 



SET PASS COUNT TO ZERO.; 
OPERAND VALUE FORMED. IN 



SET PCVRL 
•ONDVAL": 

V 



TO DSTRSM, 



VALUE IS THE 



SYMBOL 



*SYMBL: EQUATES SYMBOL (PC 
*CLABEL1) TO A LRBEL VALUE: 

* SYMVAL GETS PCVRL; 

* IF X(l) IS AN "=" THEN SYMVAL GETS ONDVAL.; 

* IF X(l> IS NOT R "=••" OR R SPACE THEN IF SECOND PASS THEN 

* EXIT ELSE START SECOND PASS; 

* L/iSEL ENTRY IN SYMBOL Ti'iBLE CETS SYMVAL.; 
*LDOP: PUT OPERATION CODE INTO THE OBJECT CODE: 

* CONVERT X(2)-X(3> INTO BINARY.; 

* SAVE FCVRLi 

* P. C. GETS F. C. +1.; 

*OPRND: FORM OPERAND IN OBJECT CODE: 

* FORM ONDVAL INTO PROPER SUE BA5ED ON CODE IN 
STORE MEN OFErAND VALUE IN. MEMORY; 
P. C LE1S P . C. + 1 Or. a.; 
GET NE::T Ll\z OF SOURCE.; 
GO TO Asniu* 



,sO. 



PDS-V3N 



E 014 PDS-V3N 



30 
31 
32 

?3 

i 

>35 

■>36 

>37 

$38 

>39 

y40 

541 

542 

€43 

644 

645 

646 

64? 

648 

^643 

1650 

1651 

1652 

11653 

1654 

3655 

3656 

165? 

Bp5S 

( 9 
Ob60 
0661 
0662 
'0663 
3664 
<0665 
10666 
'<0S67 
y~'66S 
j 3669 

jes?e 

00671 
00672 
'■•0673 
00674 
O0675 
•'. 0676 
1-1677 
00678 
00679 
£0680 



FORI 
FDR4 
FDR6 
FDhlS 
FDRR 
FDRC 
FDRE 
FDBO 
FDB2 
FC'B4 
FOBS 
FDB6 
FOB? 
FOBS 
FDB9 
FDBR 
FDB8 
FOBE 
FDCO 



7F 

DE 
DF 
DE 
DF 
R6 
E6 
CI 

OS 
OS 
6$ 
OS 
OS 
OS 
OS 
BD 
D7 
9? 



FDC2 
FDC4 
FDC6 
FDCS 
FDCR 
FDCC 
FDCE 
FDDO 
FDD2 
FDD4 
FDD6 
FDDS 
FDDR 
FOOD 
FDDF 
FDEQ 
FDE2 



0004 

2:0 

40 
26 

£i2 
OS 
0? 
40 
6B 



RSNBLR CLR 



RSM1 



RSN1R 



FF22 
2R 



2B 



DE 
R6 
E6 
DE 
DF 
CI 
26 
DE 
DF 
20 
CI 
27 
?D 



D7 
20 



£<2 

00 
01 

40 

2C 

3D 

06 

2R 

2:C 

LIE 

2:0 

£iR 

0004 

£H 

£<4 
CO 



FDE4 
FDE6 
FDES 
FDER 
FDEC 



SD 
96 
R7 
96 
R? 



41 
2C 
00 
2D 
01 



RSN1B 



LDX . 

STX 

LDX 

STX 

LDR R 

LDR B 

CMP B 

BEQ 

INS 

INX 

INX 

INX 

INX 

INX 

INX 

JSR 

STR B 

STR R 



RR3 

BUFFLO 

PCVRL 

5RCRSI1 

TMP1 

S,X 

?,X 

#*"•<? 

INDRDR 



IN IT. FRSS CTR TO FRST PR55. ) 
SETS PC CNTR TO STRRT OF 
OBJECT CODE. 
LORDS RDDR FOR FIRST LINE. 

RDDR OF CURRENT LINE. 

SYMBOL (LRBEL). 

OFERRND TVPE CODE. 

LORDS DRTR IN SYMBOL 
RODRESS.. GOES TO SYMBL. 
SETS INDEX TO STRRT OF 
OFERRND NUMBER. 



SRVES 
LORDS 
LORDS 
IF t», 



RSCBIN CONVRTS # TO BINRRY IN B-R. 
ONDVRL STORES OFERRND VRLUE IN 
ONDVRL-H ONDVRL. 



* 

* 

* FOLLOWING FORMS THE VRLUE FOR THE LRBEL 

SYMBL 



RSM2 



RSM2R 



LDX 
LDR 
LDR 
LDX 
STX 
CMP 
BNE 
LDX 
STX 
BRR 
CMP 
BEQ 
TST 
BEQ 
RfS 
STR 
BRR 



R 
B 



TMP1 

0, X 

1, X 
PCVRL 
SYMVRL 
#*'- 
RSN2 
ONDVRL 
SYMVRL 
RSM3 
#*' 
RSM3 
RR3 
RSM2R 

RR3 
RSN1 



LORDS ORIG LINE PTR INTO X. 
LORDS SYMBOL (LRBEL). 
LORDS LRBEL CONTROL CHRP. 
LRBEL VRLUE GETS PCVRL. 



IF LRBLE IS EQURTED. 

IF NOT EQURTED. 

VRLUE ( SYMVRL ) GETS 
THE OPERRND VRLUE. 
CONTINUES EVRL URTION. 
TESTS FOR ENC-OF-FROGRRM. 
SKIPS IF SPRCE KNOT END). 

IF SECOND FRSS. 

if second frss. 
the rssemeler. 

CTR TO SECOND FRSS. 
BRCK FOR SECOND FRSS. 



TESTS 
SKIFS 
LRBEL 



TESTS 
EXITS 
EX I TS 
SETS 
GOES 



*• 

* 

* 

RSM3 



FOLLOWING PUTS THE LRBEL VRLUE IN THE SYMBOL TRBLE. 



X GETS SY ! .'JL TrZL ENTRY RDF. E 
STCRES 



T i .- .r 



Lr^..L 



BSR SYMFTR 

LDR R SYMVRL 

STR R 0,:< RDDRESS <SVMVRL> INTO THE 

LDR R SVNVRL+1 SYMBOL TRSEL. 

STR R 1'X 



015 P0S-V3N 



* FOLLOWING FORMS THE OPERRTION CODE. 



FOEE OE 02 


LOOP 


LOX 


TMP1 


LOROS ORIG LINE POINTER. 


FOF0 OS 






INX 




SETS X TO POINT TO 


; FOFi es 






INX 




THE OP CODE CHRRS. 


' FDF2 OS 






INX 


• 




f F0F3 R6 00 






LOR R 


0,X 


GETS OP COOE CHRR INTO R. 


» FPF5 SI 20 






CMP R 


#*' 


TESTS IF OP COOE EXISTS. 


? FPF7 27 0fl 






BEQ 


OPRNO 


SKIPS IF NONEXISTRNT. 


L FDFS £0 FF22 






JSR 


RSCBIN 


CONVRTS OP COOE TO BINRRY. 


Z FDFC DE 46 






LOX 


PCVRL 


LOROS POINTR TO OBJECT COOE. 


s FOFE R7 00 






STR R 


0,X 


STOPS OP INTO OBJECT COOE. 


4 FE00 6S 






INX 




SETS TO NEXT OBJ CODE LOCTN. 


5 FE01 OF 40 

6 

7 

<S 
>9 

10 

11 FE03 OE 02 , 


* 




STX 


PCVRL 


SRVES P. C. POINTER. 


* 
* 
* 


FOLLOWING STORES INTO THE OBJECT COOE THE SIZEO OPERRNO. 


OPRNO 


LOX 


TMP1 


LOROS SOURCE LINE POINTER. 


32 FEQ5 R6 06 






LOR R 


6,X 


LOROS OPERRNO SIZE CHRR. 


d3 FE07 OE 40 






LOX 


PCVRL 


LOROS X NITH 08 J COOE PTR. 


34 FE09 81 45 






CMP R 


#*'£ 


TESTS LENGTH TYPE. 


05 FE0B 2E 31 






BGT 


RELTIV 


SKIPS IF RN "R" OPERRNO. 


06 FE0O 27 21 






BEQ 


EXTEND 


SKIPS IF RN "E" SIZE OPRNO. 


07 FE0F 81 44 






CMP R 


#*■'£> 


TESTS IF SIZE CHR EXISTS. 


'08 FEU 27 22 

'09 

" '9 


* 
* 




BEQ 


DIRECT 


SKIPS IF "D"COMND EXISTS. 


I 
? 12 
713 
714 FE13 OE 02 


* 


FOLLOWING GETS THE 


NEXT LINE. 


asm 


LOX 


TMP1 


LOROS STRRT OF LINE IN 


715 FE15 OS 


RSM4R 


INX 




ORDER TO FIND NEXT LINE. 


716 FE16 R6 ee 






LOR R 


B,X 


LOROS CHRR FROM SORCE LINE. 


717 FE1S SI 60 






CMP R 


#$6Q 


TESTS FOR R CRRRRGE RETURN. 


1718 FE1R 26 F9 






BNE 


RSM4R 


SKIPS ERK UNTIL C. R. FOUND. 


1719 FE1C 03 






INX 




POINTS TO FIRST LINE CHRR. 


1720 FE10 20 SB 
1721 

3700 


* 
* 




BRR 


RSM1R 


GOES BRCK TO RSSM. NEXT LINE 


3 723 
3724 
0725 


* 
* 


THE 


FOLLOWING RRE SUBROUTINES USEO BY THE MR1N COOE. 


07' 1 '6 

0727 FE1F SO 06 


* 
INOROR 


BSR 


SVMPTR 


GETS CONTENTS OF 


3728 FE21 ££ 00 






LOX 


0, X 


SYMBOL LOCATION. 


'0729 FE23 OF 2R 






STX 


ONOVRL 


STORES RS OPERRNO. 


3730 FE25 20 S'B 






BRR 


SYMBL 


RETURNS TO FIX LRBEL VRLUE. 


10731 


* 










'0732 FE27 48 


SYNPTR 


RSL R 


- 


MULT LRBEL BY 2 TO FORM 


10733 FE2S 5F 






CLR B 


- 


POINTR INTO SYMBOL TRBLE. 


10734 FE29 97 £U 


LOROX 


STR R 


TNP+1 


LORDS POINTER INTO THE 


iilV"? FE2B 07 O0 




, 


STR B 


TMP 


SYMBOL TRBLE INTO X. 


-"A FE20 OE £10 






LOX 


TMP 


RETURNS TO CRLLER. 


00rs7 FE2F 39 

a 






RTS 




RETURNS. 



016 PDS-V3N 



FE30 


06 


2R 


EXTEND 


LDft 


B 


ONDVftL 


i FE32 


E7 


00 




STfl 


B 


0,X 


1 FE34 


68 






INX 






I FE35 


96 


2B 


DIRECT 


LDfl 


ft 


ONDVftL+1 


? FE3f' 


ft7 


00 




STB 


ft 


0,X 


4 FE39 


es 






INX 






5 FE3ft 


OF 


40 




STX 




PCVftL 


6 FE3C 


20 


D5 


>fc 


BRft 




RSM4 


is FE3E 


08 




RELTIV 


INX 






t$ FE3F 


DF 


40 




STX 




PCVftL 


50 FE41 


36 


2:8 




LDR 


ft 


ONDVftL+1 


51 FE43 


90 


41 




SUB 


ft 


FCVftL+1 


52 FE45 


Q9 






DEX 






•53 FE46 


ft 7 


00 




STft 


ft 


0, X 


'54 FE48 


26 


C9 




BRft 




RSM4 


? 55 






*• 








756 






* 


END 


OF 


THE ftSSE 


757 






* 









STORES HI BYTE OF OPERftND 

INTO OBJECT CODE. 

INC PC TO POINT TO NXT 140. 

STORES LO BYTE OF OPERftND 

INTO OBJECT CODE. 

INC & SftVE P. C. TO POINT TO 

NEXT BYTE. 

GOES TO NORK ON NEXT LINE. 



INCREMENT P. C. PTR TO FOINT 
TO NXT BYTE £ SftVE P. C. . 
ONDVftL+1 LORDS LO BVTE OF OPERftND. 
FORMS RELRTIVE OFFSET. 
INSERTS RELATIVE BYTE INTO 
OBJECT CODE. 
GOES W RSSNBL NEXT LINE. 
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SI 
.iuS2 
3983 
9084 
9085 
39S6 
9987 
OOSS 
09S9 

009Q 
Q091 

9092 
10993 
10994 
'10095 
\3Q96 
1009? 
W098 
10099 

10100 

19191 

10102 

■36103 
50104 
90105 
3f~ "*6 

0Q108 

00109 
00110 

09111 
09112 

00113 

09114 

00115 

06116 

06117 

03118 

99119 

99129 

92121 

99122 

03123 

£-3124 

€3125 

€0126 

00127 

99128 

09129 

99130 

Of ^1 

9k^„2 

J0133 

09134 

90135 

J0136 

9 



* 
* 

* 



DEBUGGER 



THE DEBUGGER FOR THE PDS SYSTEM MAS DESIGNED TO 
PROVIDE A VERSATILE TOOL FOR USE IN PROGRAM TESTING AND 
DEBUGGING. IT ALLOUS FOR BREAKPOINTS.- MINI-ASSEMBLER 
SYMBOL TABLE REFERENCING, STACK MANIPULATION AND 
INPUT IN EITHER HEXADECIMAL.. OCTAL OR DECIMAL. 
THE DEBUGGER PRINTS A PROMPT CHARACTER ">" ON EVERY NEW 

* LINE. AN INSTRUCTION CAN BE TYPED IN WHENEVER THE CURSOR 

* IS BLINKING.. EXCEPT WHEW A NUMBER IS BEING TYPED IN. 

* THE DEBUGGER CALLS THE EDITOR WHENEVER A NUMBER IS TO BE 

* INPUT, SO CORRECTIONS CAN BE MADE IF THE WRONG DIGIT IS 

* TYPED IN. THE POINTER "PCVAL" POINTS TO THE CURRENTLY 
OPENED BYTE LOCATION. THE DEBUGGER OPERATES ON WHATEVER 
BYTE IS POINTED TO BY FCVAL. FOR FURTHER DETAILS SEE THE 
SECTION ON THE. DEBUGGER IN THE OPERATORS REFERENCE MANUAL. 



THE DEBUGGER IS IMPLEMENTED BY A SMALL ROUTINE TO SET 

* UP ENTRY (DEBUG) AND A LARGE ROUTINE WHICH DOES A RANGE 

* COMPARE TO FIND THE PROPER COMMAND AND THEN EXECUTES THE 

* COMMAND (RUNBUG). NOTE THAT SINCE COMMANDS ARE 

* DIFFERENTIATED BY RANGE.. ANY KEY STRUCK HILL PRODUCE 

* A COMMAND EXECUTION.. SUCH AS A "> " BEING INTERPRETED 

* AS A "+" COMMAND. 



* 
* 

* 
* 
* 

* 
* 

* 
* 

* 
* 

* 
* 
* 

* 



COMMANDS: 

U C. R. " LINE 
" " CHANGE • 
a +" OPNNXT - 
"-'• OP N PRE • 
"TB" BRKSET 
"tC" CLRBRK 
"TE" EXIT - 
"tG" GOLOCN - 
"tJ" JUMP 
"tO" OPNLOC - 
"tR" OPNREG - 
"tS" SETSTK - 
a tT" OFNTSL - 
"fX" GCEXEC - 



- PRINTS ">" OUT ON A NEW LINE. 
THE SPACE CQNND CHANGES CONTENTS FROM Y TO Z. 
OPENS NEXT LOCATION. 
OPENS PREVIOUS LOCATION. 

- SETS A BREAKPOINT AT THE OPENED LOCATION. 

- CLEARS BRKPOINT. MUST BE DONE BEFORE EXIT. 
PERFORM RTI - EXECUTE AT BRKPOINT LOCATION. 

STARTS EXECUTION AT OPENED LOCATION. 

JUMP TO USERS SUBROUTINE. 

OPENS LOCATION THAT IS TYPED IN AFTER "0". 

OPENS THE TOP-OF-STACK LOCATION. 

SETS THE STACK TO THE OPENED LOCATION. 

OPENS LOCATION IN SYMBOL TABLE OF NEXT 

EXITS THE DEBUGGER - GOES BACK TO EXEC. 



CHR. 



SUBROUTINES: 

INPCHR - INPUTS A CHAR. INTO A AND PRINTS IT. 
INPNUM - INPUTS A NUMBER INTO B-A FROM THE KEYBOARD. 
PNTBVT - PRINTS ACC R AS 2 HEX DIGITS ON THE SCREEN. 
PNTDIG - PRINTS B-A AS 4 HEX DIGITS ON THE SCREEN. 
NEWLIN - PRINTS A C. R. AND A ">" ON THE SCREEN. 
DSPADR, - PRINTS BYTE ADDRESS (XXXX> AND BYTE CONTENTS <YY> 
AS >XXXX YY ON THE SCREEN. 
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'. \33 
l<u139 
06146 

00141 

00142 
00143 
00144 
00145 
00146 
00147 
0014S 
60149 

00150 

66151 
66152 

00153 

00154 
00155 
00156 
0015 7 
60158 
06159 
66166 
66161 
66162 

r 63 

0*164 
66165 
66166 
66167 
0016S 
00169 
66176 
06171 
00172 
01173 
06174 
60175 
60176 
00177 
00173 
0H7 Q 

00131 
00132 
001S3 
001S4 
001S5 
00136 
31 $ 7 
f" *33 

^0191 
.'.'0192 





FE4A 



ORG 



FE4A 30 
FE4B E6 
FE4D R6 
FE4F $0 
FE51 C2 
FE53 E7 
FE55 A 7 
FE57 20 



FE59 SI 
FE5B 2D 
FE5D 2E 
FE5F BD 
FE62 31 
FE63 31 



FE64 SO 
FE66 SD 
FE63 BD 
FE6B DE 
FE6D SD 
FE6F 20 



FE71 BD 
FE74 BD 
FE77 39 



FE73 SI 
FE7R 2D 
FE7C 2E 

£1*5 ££ 

~ Z. i.' ii. rli 

FE34 20 



05 
06 
01 

06 

05 
06 
OB 



£>D 
?'D 
4E 
F'CCB 



i-6 

09 

FCR5 

40 

09 

F5 



FC4A 
FCBC 



03 
2:5 

4 5 
t n 

CO 
66 



FES6 $1 
FES8 2D 
FESR 2E 
FESC SD 
FESE DE 
FE90 R7 



FE92 6S 
FE93 20 



2:0 
12 
09 
5>6 
40 
06 



t.7 



* 

* 
BKENTR 



$FE4R 



* 
IN- 
LINE 



POPLIN 
* 

DEBUG 
DBUG1 



* 

INFCHR 



RUNBUG 



UA^'..\ 



CHANGE 
5FRCE 



FOLLOWING IS L0CRTI0N OF ENTRY OF THE BRKPT VECTOR. 



* 

* 



TSX 
LDR B 
LDR R 
SUB R 
SBC B 
STR B 
STR R 
BRR 



CMP R 
BLT 
BGT 
JSR 

INS 
INS 



BSR 
BSR 
JSR 
LDX 
BSR 
BRR 



JSR 

JSR 
R7S 



OFNNXT 



CMP R 

BLT 

BGT 

BSR 

LDX 

STR R 



INS 
BRR 



5,X 
6,X 
#1 

#0 

5,X 
6". X 
DEBUG 



#*00 

JMFLCN 
OPNREG 



SUB31 



NEWLIN 

INFCHR 

RTRRRO 

FCVRL 

RUNBUG 

DBUG1 



GETCHR 
PJTCHR 



CMP R its 03 

BLT ER,\SET 

s-jT e:it 

LDX , SFKAQR 

;-.--f R c.'-.SRV 

STR R 0.S 

SRR DSFRDR 



ESECTV 
OPNFRE 
INPNUM 
FCVRL 
6, X 



OSPRDR 



INDEX GETS STRCK POINTER. 
LORDS HI RETURN RDDRESS. 
LORDS LON BYTE OF RDDRESS. 
SUB 1 FROM RETURN RDDRESS. 

RESTORES RETURN RDDR. . TO 
THE BREAKPOINT L0CRTI0N. 
GOES TO THE DEBUGGER. 



TESTS FOR R C. R. (LINE). 
GOES TO y JSR' <fj) ROUTNE. 
SKIPS FOR NEXT <TR) TESTS. 
MOVES CURSOR UP ONE LINE. 
CLEANS UP STRCK FOR 
DISPLAY OF C. R. >. 



PRINTS "C. R. >". 

RERDS TN COMMAND. 

INSERT BLRNK. 

LORDS CURRENTLY OPENED LOC. 

EXECUTES DEBUG COMMAND. 

GOES BACK. FOR NEXT COMND. 



READ IN CHAR INTO A. 
DISPLAYS CHARACTER. 
RETURNS TO CALLER. 



TESTS FOR R "TC" COMMAND. 

SKIPS IF A "!S"' C0"-:: f RN£> 

5KIPS FOR NEXT COMND TEST. 

£*T'5-R£1-RESS. OF Efc '-'POINT. 
L:>.-:~>~ UHU c..- r c CCUTIiiTS. 

PE STORES BYTE DATA. ' 
GOES TO OPEN THE LOCATION. 



TESTS OFF R SPRCE COMND 
SKIPS TO EXIT BRCK TO EXEC. 
SKIPS FOR OTHER CMND TESTS 
INPUTS NEN BYTE CONTENTS 
LORDS OPENED BYTE LOCATION 
STORES NEW BYTE CONTENTS. 



FORMS NEXT LOCATION ADDRES. 
GOES TO OFEN LOCATION BYTE. 



. .*ijr 005 FDZ-V3I 


V 






>,->.*"— FFi?5 31 £P 


QFNPRE 


CMP R 


##'- 


.'■.■ l FE5." 7 2D F9 




BIT 


OPNNXT 


ruUSS FE99 69 




DEX 




CO 19 9 FE9A 2d 56 




BRR 


DSPRDR 


,^i'(l(3 


* 






Otf£01 


* 






<?O202 FE3C 51 


EXECTV 


INS 




-'LUW FE9D SI 




INS 




0)3204 FE9E 7E FC14 




JMP 


EXEC 


00205 


* 






00206 


* 






00207 FEF)1 A6 m 


BRKSET 


LDR R 


6.. X 


002QS FEA3 97 Z:E 




STR R 


BRKSRV 


00209 FEA5 OF 3:0 




STX 


BRKADR 


00210 FEA7 S6 3-F 




LDR R 


#$3F 


00211 FEA9 R7 06 




STR R 


(?, X 


00212 FERB 26 B5 




BRR 


POPLIN 


CO 213 


•f 






00214 


* 






00215 FERD SI 1.2 


OFNREG 


CMP R 


#$12 


06216 FERF 2D l"'rt 




BLT 


0FNL0C 


00217 FEB1 2E ±9 




BGT 


OPNTBL 


0621S FEB3 36 




TSX 




66219 FEB4 68 




INS 




00226 FEB5 6S 




I NX 




0Q£?1 FEB6 26 3:4 




BRR 


DSPRDR 


06\ 


* 






06223 


# 






66224 FEBS 35 


SETSTK 


TXS 




06225 FEB9 26 Fl9 




BRR 


DEBUG 


10226 


* 






CO 22 7 


+• 






33 228 FEBB SD 2:7 


0PNL0C 


BSR 


INFNUM 


0B229 FEBD D7 46 


OPNLC1 


STR B 


PCVRL 


00236 FESF 97 41 




STR R 


PCVRL+1 


O0231 FECI 26 2:B 




BRR 


DSPRD1 


00232 


* 






.~ : '.~ t '?^'? 


■*• 






00234 FEC3 SI C'7 


EXIT 


CMP R 


#$67 


00235 FEC5 27 1.1 




BEQ 


G0L0CN 


■:0236 FEC7 2E S'Q 




BGT 


LINE 


'..'227 FEC9 31 




INS 




:?22S FECR 31 




INS 




■■■239 FECB 3B 




RTI 




. .'243 


* 






. 0241 


•* 






■■0242 FECC SI 14 


OPNTBL 


CMP R 


#$14 


■ ■-■24 2 FECE 2D ES 




BLT 


SETSTK 


■0244 FED6 2E B4 




BGT 


CHRNGE 


■:0245 FED2 SD S'D 




BSR 


INPCHR 


'•246 FED4 4S 




RSL R 


, 


■',' 7 FED5 5F 




CLR B 




^•Sr-,3 FED6 26 E5 




BRR 


0PNLC1 


<0249 


* 






'0250 


* 






'- -'251 FEDS 31 


G0L0CN INS 




■■>2T2 FED9 31 




INS 




■-'0252 FEDR 6E 06 


JMPLCN JMP 


6, X 



TESTS FOR R "-" CONNRND. 
SKIPS FOR R "+" CONNRND. 
FORMS FREV. LOCATION RDDR. 
GOES TO OPEN THE L0CRTI0N. 



CLERNS UP THE STRCK. 
RETURNS TO THE EXECUTIVE. 



LORDS DRTR OF OP NED LOCRTN. 
SAVES DRTR OF OPNED BVTE. 
SAVES RDDR. OF BREAKPOINT. 
LORDS SOFTWARE INTUP COMND. 
SETS RN SMI RT OPNED. BYTE. 
GOES TO NEXT LINE FOR COMND. 



TESTS FOR "TR" (STRCK TOP). 
GOES TO OPEN A LOCATION. 
SKIPS' FOR NEXT TEST <TT). 
OPENS TGF-0F-S7ACK. 
PCVAL GETS STRCK POINTER. 
(CLEANS UP THE STRCK). 
GOES TO DISPLAY THE T-O-S. 



STRCK FOINTER GETS PCVRL. 
RETURNS TO INPUT COMMAND. 



LOADS A 16 BIT NUMBER. 
STORES NEHLV OPENED 
LOCATION ADDRESS. 
DISPLAYS CCNTNTS Cr LOCRTN. 



TESTS IF RN EXIT •:','£> CCMD. 
SKIPS FOR THE "GO" COMMAND. 
SKIPS FC~ NEXT CC'-irD TEST. 
CLEARS UP THE STACK. 

RETURNS FROM SREArPOIN'. 



TESTS IF A "TT" (TABLE). 

GOES TO SET STRCK PTR (tS>. 

SKIPS FOP NEXT TEST i SPACE). 

LOADS A NITH SYMBOL (LABL). 

ALIGNS ADDRESS FOR 

SYMBOL TABLE ENTRY. 

SAVES AND DISPLAYS ADDRESS. 



CLEANS UP THE STACK. 
JUMPS TO USERS PROGRAM. 
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t. 



55 



00256 

09257 

0025S 

80259 

00260 

00261 

00262 

00263 

00264 

00265 

00266 

00267 

0026S 

00269 

00270 

00271 

00272 

00273 

00274 

00275 

00276 

Q0277 

0027S 



I :eo 

00281 
O02S2 
00233 
0O2S4 
0O235 
00286 
O0287 



FEOC 
FEDE 
FEEO 
FEE2 



FEE4 
FEE7 
FEES 
FEEB 



FEEC 
FEEE 
FEF.3 
FEF2 
FEF5 
FEF7 
FEES 
FEFB 



S6 
SD 
86 
20 



BO 
DE 
3D 
33 



OF 
SD 
80 
BD 
DE 
R6 
80 
39 



00 
J-'c 
3:E 
3:8 



FC7 
24 



* 

* FOLLOWING ARE SUBROUTINES USED BY THE DEBUGGER. 

NEWLIN 



LDR 
BSR 
LOR 
BRR 



R 



#$00 LORDS R CRRRIRGE RETURN. 

PNTBF1 PRINTS R CRRRIRGE RETURN. 

#'? LORDS R PROMPT CHRRRCTER. 

PNTBF1 DISPLRYS PROMPTER CHRP. 



* 

* FOLLOWING INPUTS R 16 BIT NUMBER INTO THEE BR REGISTER. 
*• 

INPNUM 



JSR 
LDX 
BSR 
RTS 



EDI TIN INPUTS R STRING OF DIGITS. 
SCNPTR LORDS RDDR. OF FIRST DIGIT. 
RSCBIN CONVERTS TO BINRRY # IN BR. 
RETURNS TO CRLLER. 



FOLLOWING DISPLRYS THE LOCRTION RDDR. & CONTENTS. 



FEFC 
FEFE 
FF09 



96 
SO 
96 



48 

EC 

OR 

FCR5 

40 

CiO 

£'7 



48 
02 
41 



* 
* 
* 

0: 
DSPROl 



'PROP 



PNTOIG 



STX 
BSR 
BSR 
JSR 
LOX 
LDR 
BSR 
RTS 



LOR 
BSR 
LOR 



R 



FCVRL 

NEWLIN 

P NT DIG 

RTRRRO 

PCVRL 

O, X 

FNTBYT 



PCVRL 

FNTBYT 

PCVRL+1 



SRVES OPENED LOCRTION RDDR. 
PRINTS R "C. R. " RND ".>". 
PRINTS OUT "PCVRL" IN HEX. 
PRINTS R SFRCE. 
LORDS PTR. TO OPEND LOG. 
LORDS ORTR FROM LOCRTN. 
PRINTS DRTR IN HEX FORMRT. 
RETURNS TO INPUT COMMRND. 



PRINTS THE 2 HI HEX DIGITS 

OF OPENED RDDRESS. 

FRINTS OUT 2 LOW HEX DIGITS 



002S9 
00230 
00291 
00292 
80293 

uu29B 
00296 
00297 
00298 
00239 

eoseo 

80301 
00302 
00383 

( 



FF82 
FF05 
FFO'i 
8 



* 

* 

* FOLLOWING PRINTS OUT 2 HEX DIGITS. 

*• 

PNTBVT 



FF08' 



FFQB 
FFOD 
FFIO 
FF12 
FF14 



•so 
\_.385 FF18 S6 

J0306 
^00387 
'00308 

J8389 

80310 

00311 



CE S'OIO PNTBVT LDX 
DF 04 STX 

5F CLR B - 

CE 0035 ¥ LDX 

* 

* FOLLOW I NG 

* 

CONVRT STR B 
JSR 
LDR R 
LDR B 
BNE 
IOBUFF+1 
LDR R 



#16 

RRB 



#IOBUFF 



LORDS 16 FOR BRSE. 
STORES FOR CONVERSION. 
CLEhRS HI 2 DIGITS. 
LORDS OUTPUT BUFF RDDRESS. 



07 
BO 
96 
06 
26 



FF1R 
FF1C 
FF1E 
FF21 



SD 
96 
BD 
39 



JO 

FF64 
35 
3-6 
04 

STR 
30 

02 PNTBUF 

36 

FCBC FNTBF1 



CONVERTS BYTE TO HEX WITH LEADING 2ERCS. 

I03UFF+1 CLERS SVTE FOR SECOND DIGIT. . 
BINRSC CONVERTS TO RSCII DIGITS. 
IOSUFF LORDS HI DIGIT 
ICPUFF+1 TESTS BOTH DIGITS CONVTD. 
PNTBUF SSKIFS IF BOTH DIGITS C0NVTD003G4 FF16 
SETS UP LOW DIGIT. 
#S'0 HIGH DIGIT GETS R "0". 



BSR 
LDR 
JSR 
RTS 



PNTSF1 PRINTS OUT HI DIGIT. 
IOBUFF+1 LORDS LOW DIGI 
PUTCHR DISPLRYS CCHRRRCTER. 

RETURNS TO CRLLING PROGRRN. 



c-wn nr nFRtinnn? 
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00314 
Q0315 
00316 
"'13:17 
SIS 
00319 
00320 
00321 
00322 
00323 
00324 
00325 
00326 
00327 
00328 
00329 
00330 
00331 
00332 
00333 
00334 
00335 
00336 
00337 
0033S 
00339 
00340 
00341 

&*342 
143 
\w244 
00345 
00346 
00347 
0034S 
0O349 
80350 
00351 
30352 
0O353 
00354 
00355 
00356 

co:sr 

00 J 53 



r 



* 
* 
* 
* 

* 



UTILITY PROGRAMS 



ASCII TO BINARY CONVERSION. 



THE ASCII TO BINARY ROUTINE CONVERTS FROM AN ASCII 

* NUMBER STRING POINTED TO BY X TO AN UNSIGNED 16 BIT 

* BINARY NUMBER IN BA <ACC B HAS THE HI BYTE- ACC A HA* 

* THE LO BYTE). THE ASCII STRING IS TERMINATED BY H NON 

* HEXADECIMAL CHARACTER. UPON EXITING, THE INDEX REGISTER 

* WILL POINT TO THE NEXT CHARACTER AFTER THE NUMBER 

* STRING. THE BASE OF THE NUMBER STRING IS FASSED Tn 

* THE ROUTINE IN ARA <ARA IS THE ARITHMETIC REGESTER A 

* LOCATED IN BYTES 06 AND 07 OF LOU MEMORY). IF THE 

* ROUTINE IS ENTERED UITH A KNOUN BASE, PUT THE BASE 

* <BETUEEN 2 AND 16) IN ARA AND ENTER THE ROUTINE AT 

* THE ENTRY POINT ENTR2. 
# 

* 

* 

* CONVERSION FORMULA: 

* ASCII NUMBBER STRING X[4h XC3J.. X£2h XC1] IN 
*BASE Y; 

* BINARY NUMBER = 

* X[4]*YT3+X[3]*Yr2+X[2]*Ytl+XCl]*Yt0 OR 

* BINARY NUMBER = 

* (< <0*Y+X[4] ) *Y+X£2J> *Y+XC23 )*V+XC1 J 
*HHERE t IS THE EXPONENT OPERATOR, 

* X IS A CHARACTER & Y IS THE BASE. 

* ALGORITHM: 

*RSCBIN: FORM THE BASE IN ARA BASED ON THE FIRST CHAR 

* OF THE NUMBER STRING: INCREMENT CHAR. PTF IN X: 
*ENTR2: NUMBER (IN BA.> GETS Qj 
*NXTCHR: IF THE CURRENT CHAR. POINTED TO BY X IS NOT H 



DIGIT THEN EXIT ELSE INCREMT CHARACTER FTR I N~ INDEX 

CONVERT DIGIT TO BINARY; 

NUMBER GETS NUMBER ■* BASE; 

NUMBER GETS NUMBER + DIGIT; 

GO TO OPERATE ON THE NEXT DIGIT (NXTCHR). 
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R5CBIN LDR R 
CMP R 
BLT 
BGT 
LDR R 
BRR 

OCT LDR a 

RSC1 INX 
BRR 

HEX LDR ft 

RSC2 STR R 

* 

* 

ENTR2 CLR B 
FSH B 
STR B 

NXTCHR LDR R 
INK 
CMP R 
BLT 
SUB R 
CMP R 
BLT 
CMP R 
BLE 
SUB R 
CMP R 
BGE 

RSC1 STR R 

-+• 

CNVRSC STX 

PUL R 
BSR 
ROD R 
RDC B 
FSH R 
LDX 
BRR 

REX IT FUL fl 
RTS 



0,X GETS CHR TO FORM BRSE. 

#*'. TESTS FOR DECML STRNG. 

OCT SKIPS IF BRSE 8 <*>. 

HEX SKIPS IF BRSE 16. 

#10 LORDS BRSE 10 FOR CONVERSN. 

RSC1 SKIPS TO INC. TEXT POINTR. 

#8 LORDS BRSE 8 FOR CONVERSION. 

INCREMENT FTR TO NEXT CHRR. 

RSC2 SKIPS TO SRVE BRSE. 

#16 LORDS BRSE 16 FOR CONVERN. 

RR8 SRVES BRSE IN BRSE*. 



NUMBER GETS 8. 

(LON NUMBER ON STRCK>. 

RR1 CLERRS HI OF BRSE. 

0,X GETS CHRR TO CONVERT. 

INC TO NEXT CHRRRCTER. 

#*'0 TESTS FOR END-OF-STRING. 

REX IT EXITS IF END. 

#$'8 FORMS B. C. D. NUMBER. 

#18 TESTS IF DECIMRL DIGIT. 

RSC3 SKIPS IF DECIMRL. 

#16 TESTS FOR END OF STRING. 

REXIT EXITS IF NOT R HEX DIGIT. 

#7 FORMS R HEX B. C. D. DIGIT. 

#16 TESTS FOR END-OF-STRING. 

REXIT EXITS IF CHRR > "F". 

DIGIT SRVES DIGIT FOR RDD. 

TMP SRVES INDEX REG FOR MULT. 

RESTORES LO OF "NUMBER". 
MULT NUMBER GETS NUMBER * BRSE. 

DIGIT NUMBER GETS NUMBER + DIGIT. 

#8 

SRVES LO OF NUMBER 
TMP RESTORES STRING FJINTE- 

NSTCHR GOES TO CONVRT NEXT Ch-F. 

RESTORES "NUMBER " IN EFt. 

RETURNS TO CRLLING PRObRRM. 
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BINARY TO RSCII 



THE BINRRV TO RSCII CONVERSION ROUTINE CONVERTS 
R 16 BIT BINRRV NUMBER IN THE BR REGISTR (REG B & REG fl> 
TO R STRING OF RSCII DIGITS.' THE RSCII STRING CRN PE IN 
RNV BRSE FROM BRSE 2 THROUGH BRSE 41. THE VRLUE OF THE 
BRSE IS LOCRTEO IN THE ARITHMETIC PSEUDO-REGISTER RRS 
<RRB IS L00CRTE0 IN BYTE RR3 CLOC 41 RNO RR2 CLOC 5]> 
NHEN THE ROUTINE IS ENTERED.. THE POINTER TO THE OUTPUT 
LOCRTION IS PRSSEO IN THE INDEX REG. NHEN THE ROUTINE 
EXITS, THE INDEX POINTS TO THE LRST DIGIT IN THE STRING 
PLUS ONE. 

CONVERSION IS DONE BV THE METHOD OF REFERTED 
DIVISION. THE LOH ORDER DIGIT IS FORMED FIRST. THE 
DIGITS RRE THEN PLRCEO ON THE STRCK UNTIL CONVERSION IS 
COMPLETED. THE DIGITS RRE THEN POFPED OFF THE STRCK 
RNO PLRCEO IN THE OUTFUT STRING. THE TOP-OF-STRCK IS 
1NITIRLIZED TO HEX FF TO TELL NHEN RLL THE DIGITS 
HRVE BEEN POPPED OFF THE STRCK. RFTER THE DIVISION. THE 
DIGIT (THE REMAINDER OF THE DIVISION HFERRTION) 
IS LOCRTED IN THE RR 8 PRRT OF RRR (BYTE 7). NHEN 
THE QUOTIENT OF THE DIVISION IS 0, THEN THE CONVERSION 
IS COMFLERTED. 
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* 
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* 
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* 

BINRSC STX 

DES 

TSX 

CLR 

COM 
BIN! LDX 

STX 

BSR 

* REMAINDER OF # TO BE 

* THE LOH ORDER DIGIT. 

STR R THP1 

LOR R RRO 

PSH R - 

LOR R TMP1 

TST R - 

BNE 8IN1 

TST B - 

BNE 



TMP 



6,X 

a. x 

RRB 
RPR 
DIVIDE 



BINSTR LDX 

BIN3 PUL R 
TST R 
BPL 
RTS 

BIN4 CMP R 
BLE 
ROD R 

BINS ROD R 
STR R 
INX 
8RR 



BIN1 
TMP 



BIN4 

#9 

BIN5 

»7 

#$'0 
Q, X 

BIN3 



SRVES OUTPUT POINTER. 
/SETS THE TOP-OF-STRCK TO 
/RLL ONES TO TELL END OF 
/CHRP STRING (LAST CHAR IS 
/PUT ON STRCK FIRST). 
RESTORES DIVISOR <BRSE>. 

* QUOTIENT IN BR GETS THE 
CONVERTED ; REMAINDER IN RRR GETS 

SRVES R OF BR. 

LORD DIGIT (REMAINDER). 

STRCK DIGIT (REVERSE ORDER) G 

RESTORES R OF BR. 

/TESTS IF QUOTIENT IS - 

/(SIGNIFYING THAT 

'/THE CGNVERRSION 

/IS DONE). 

RESTORES OUTPUT POINTER. 
UNSTRCK R DIGIT. 
TESTS IF NEG (END?). 
SKIPS IF R DIGIT. 
EXITS FROM SUBROUTINE. 
TESTS IF RESULT IS HEX. 
SKIPS IF DIGIT NOT HEX. 
FORMS HEX VRLUE QF DTQIT 
FORMS DECIMRL CHARACTER ' 
OUTPUTS CHRRRCTER 
FOINTS TO NEXT CHRRRCTER 
GOES BRCK FOR NEXT DIGIT 



mot' 07 
v050S 
L'0t<69 
00516 
*65U 
, ' "<512 
v 513 

c*0515 
0t«516 
00517 



FF93 
FF94 

FF9,' 

FFSS 

FF99 

FF9A 

FF98 

FF9C 

FF90 

FF9h 

FFA1 

FFA3 

FFA5 

FFR7 

FFR9 

FFRB 

FFRC 

FFAD 

FFRE 



37 

S€ 

oo 

4F 

5F 
c0 
48 
55 
6'S 
65 
24 
P£? 
DS 
6R 
26 
31 
31 
31 
39 



02 
Ul 
04 
07 
OS 
00 
F6 



PAGE Old PDS-V3N 

00466 

0Q461 

6" '62 

b- 53 

00464 

60465 

60466 

60467 

6046S 

00469 

66476 

66471 

00472 

00473 

66474 

66475 

60476 

06477 

60478 

06479 

664S6 

664S1 

66482 

664 S3 

00484 

004S5 

06486 

IT '87 

I .88 

66489 

0049O 

66491 

60492 

60493 

00494 

60495 

66496 

06497 

00498 

66499 

€6,509 EF9.5. S£ 1.0 

. tObOl 

60562 
60503 
00504 

00505 



MULTIPLY ROUTINE 



THE MULTIPLY ROUTINE MULTIPLIES T140 16 BIT BINRRY 
NUMBERS TOGETHER TO PRODUCE R 16 BIT RESULT. THE BR 

* REGISTERS RNO RRR (BYTES 6 & 7) REGISTER RRE USED. 

* THE CONTENTS OF RRR RRE UNCHRNGED UPON PROGRRM EXIT. 



* 
* 

* 

* 
* 

* 

* 
* 

*MULT: STACK 
*MUL1: SHIFT 

* SHIFT LEFT 

* IF CRRRY = 
GETS BR 



BR GETS BR * RRR 



MULTIPLYING IS RCCONPLISHED BY REPEATED RDD1TIONS 
OF ONE OF THE OPERRTORS (OPERATOR RRR) INTO THE RESULT. 
THE RESULT STRRTS OUT WITH R ZERO VRLUE RND IS SHIFTED 
OVER ONE RFTER ERCH ROD IT ION. THE HIGHEST ORDER VRLUE 
IS RDDED IN FIRST RND THEN.. GOING TO THE RIGHT.. 
<THUS SHIFTING THE RNSNER LEFT ONE TO BRING IN THE NEXT 
RIGHTMOST DIGIT) GETTING THE NEXT LOUERMOST SIGNIFICANT 
DIGIT. THE NEXT RIGHTMOST BIT OF THE OTHER OFERRND 
(THE ONE ORIGINRLLY IN BR) IS TESTED, RND IF ONE.. 
ANOTHER ADDITION TRKES FLRCE. THIS IS REPERTED UNTIL 
THE FINRL SUM IS FORMED. 



MULTIPLY ALGORITHM: 



IF 



* BA 
*NUL2. 
* 
* 

* 

MULT 



BA; BA GETS 0; SET COUNT VALUE TO 16.. 
BR LEFT 1; 

ORIG BA VALUE ON STACK INTO CARRY; 
6 THEN GO TO MUL2 
+ ARA' 
DECREMENT COUNT; 
COUNT # 6 THEN GO TO MUL1 ELSE EXIT. 



NUL1 



NUL. 



PSH 
PSH 

ffl 

CLR 
CLR 
TSX 
ASL 
ROL 
ASL 
ROL 
BCC 
ADD 
ADC 
DEC 
BNE 
INS 
INS 
INS 
RTS 
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B 
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R 
B 



A 
B 



#16 



PUTS THE ORIGINAL CONTENTS 
OF BA ONTO THE STRCK. 
LORDS COUNT VRLUE 
ONTO THE STACK. 

BA GETS ZEROED. 

SET INDEX TO STACK. 
SHIFT LEFT SA. 



SHIFTS ORIG. BA OPERAND 
ONE LEFT INTO CARRY. 
SKIPS ADDING IF CRRRY = 
BA GETS BR * RRR. 



2, X 

1, X 

NUL2 

RRO 

AR1 

8,X TESTS IF DONE. 

MUL1 GOES BACK IF NOT DONE. 

CLEANS UP THE STACK. 



EXITS ROUTINE. 
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DIVIDE ROUTINE 

THE DIVIDE SUBROUTINE DIVIDES THE 16 BIT NUMBER 
THE BR REGISTERS BY THE 16 BIT NUMBER IN THE PSEUDO 



REGESTER RRR (LOCATED IN BYTES 6 £ 7) UPON 
BR WILL CONTAIN THE QUOTIENT OF THE DIVISION 
MILL CONTRIN THE REMAINDER. THE DIVIDEND BR 
BY THE DIVISOR RRR (I. E. BR/RRR >. 



DIVIDE ALGORITHM: 



EXITING.. 
AND RRR 
IS DIVIDED 



X3,4 GETS 
XI , 2 GETS THE 16 
COUNT GETS 
THE DIVISOR 



BR (BR IS PUT ON THE STACK); 

BIT RRR VRLUE <RRR PUT ON THE STACK).; 
1 + THE NUMBER OF NONSIGNIFICANT BITS IN 
CLEFT JUSTIFY XI, 2 TO FIRST 1 BIT.. COUNT 



GETS 1 + THE # OF LERDING ZEROS IN XI.. 2] [COUNT HILL BE 
FROM 1 TO 173.; 

BR GETS X3,4 [RESTORES BR].; 

X3..4 GETS O C INITIALIZES THE QUOTIENT ]j 
*DIV3: BR GETS BR - XI, 2.: 

* IF THERE MRS R BORRON [I. E. DIVIDEND IN BR < DIVISOR 

* IN XI, 2 (ARA)] THEN BR GETS BR + XI, 2 CORIGINRL BR 

* VRLUE RESTORED! & CRRRY CLERRED ELSE CRRRY IS SET.; 
*DIV5: X3,4 [QUOTIENT] GETS CRRRY LEFT SHIFTED IN.; 

XI, 2 [DIVISOR] GETS SHIFTED RIGHT ONE FLRCE l-IITH ZERO 
FILLED IN FROM THE LEFT SIDEj 
DECREMENT COUNT.; 
EXIT IF DONE ELSE GO TO DIV3j 
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2,X 
1, X 
DIV2 
*17 
DIV1 
0, X 

3, X 

4, X 
3,X 
4,X 



LORDS- DIVIDEND INTO X3, 4. 
LORDS DIVISOR FROM RRR. 
PUTS DIVISOR INTO XI, 2. 

SET UP SPRCE FOR COUNT. 

INDEX GETS STRCK POINTER 

INITIALIZE COUNT. 

TESTS FOR HI DIVISR BIT ON 

SKIPS IF ON. 

COUNTS LERDING ZEROS. 

LEFT JUSTIFIES XI, 2. 



IF NO LERDING ZERO. 



L ZERO DIVISOR. 
BITS LEFT. 



SKIPS 

TESTS FOR Rl 

GOES BRCK IF 

SETS COUNTER. 

BR GETS ORIGINAL 

DIVIDEND VRLUE. 

CLERRS X3, 4 FOR FORMATION 

OF THE QUOTIENT. 
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SUB 

SBC 

BCC 

RDD 

FIDO 

CLC 
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SEC 
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1, X 
0IV4 
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STORES 



$8104 
BKENTR 

$010$ 

$FCO0 



STRRT OF DIVIDE LOOF. 

SKIP- IF DIVIDEND' < DIVISOR. 
RESTORES DIVIDEND IN BR. 

CLERRS THE CRRRY. 
SKIPS NITH CRRRY CLERR. 
SETS CRRRY TO 1. 
SHIFT CURRY INTO 
QUOTIENT X3, 4 
SHIFTS DIVISOR SI.. 2 
RIGHT ONE. 
DECREMENTS COUNTER. 
GOES BRCK IF NOT DONE. 
STORES REMINDER IN RRR. 

CLERNS UP THE STRCK. 



QUOTIENT IN BR. 
EXITS ROUTINE. 



INTERRUPT REQUEST VECTOR. 
SQFTNRRE INT. VECTOR ft DDR. 
NON-tlRSKRSLE-INT. VECT. 
RESTART VECTOR RDDRESS. 



END OF FDS SOURCE LISTING. 
END 



ERRORS 00000 



